home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / BOOKS / BKSHELF.DIR / 00060.ls < prev    next >
Encoding:
Text File  |  1996-07-19  |  404 b   |  18 lines
  1. on exitFrame
  2.   set the textFont of field 59 to "Geneva"
  3.   set the textSize of field 59 to 12
  4.   repeat with x = 1 to 39
  5.     set the text of field 59 to the text of field 59 & char x of the text of field 58
  6.     puppetSound("tick")
  7.     updateStage()
  8.     idle()
  9.     startTimer()
  10.     repeat while the timer < 5
  11.       idle()
  12.     end repeat
  13.   end repeat
  14.   puppetSound(0)
  15.   updateStage()
  16.   go(the frame + 1)
  17. end
  18.